home *** CD-ROM | disk | FTP | other *** search
/ Electronic Bookshelf / Electronic Bookshelf.iso / menu / menu.bak < prev    next >
Text File  |  1994-12-22  |  30KB  |  1,465 lines
  1. CLS
  2. SHELL "ELEC.COM"
  3. DELAY 2
  4. BOOKSHELF:
  5. SHELL "ELECBKSH.COM"
  6.  
  7. MAINMENU:
  8.     A$=INKEY$
  9.            IF A$=CHR$(49) THEN GOTO SEVENCLUBS
  10.            IF A$=CHR$(50) THEN GOTO FABLES
  11.            IF A$=CHR$(51) THEN GOTO AUTOS
  12.            IF A$=CHR$(52) THEN GOTO GOVERN
  13.            IF A$=CHR$(53) THEN GOTO LITERATURE
  14.            IF A$=CHR$(54) THEN GOTO MAKECASH
  15.            IF A$=CHR$(55) THEN GOTO MOVIES
  16.            IF A$=CHR$(56) THEN GOTO PLAYS
  17.            IF A$=CHR$(57) THEN GOTO POEMS
  18.            IF A$=CHR$(48) THEN GOTO REFERENCE
  19.            IF A$=CHR$(27) THEN SHELL "CD\":CLS:END
  20.     GOTO MAINMENU
  21.  
  22. SEVENCLUBS:
  23. SHELL "700CLUB.COM"
  24. SEVENMENUS:
  25.      A$=INKEY$
  26.           IF A$=CHR$(49) THEN GOTO SEVENPARTA
  27.           IF A$=CHR$(50) THEN GOTO SEVENPARTB
  28.           IF A$=CHR$(27) THEN GOTO BOOKSHELF
  29.      GOTO SEVENMENUS
  30.  
  31. SEVENPARTA:
  32. SHELL "700CLUB1.COM"
  33. PARTAMENU:
  34.      A$=INKEY$
  35.         IF A$=CHR$(65) OR A$=CHR$(97) THEN CLS:SHELL "700G039.BAT"
  36.         IF A$=CHR$(66) OR A$=CHR$(98) THEN CLS:SHELL "700G173.BAT"
  37.         IF A$=CHR$(67) OR A$=CHR$(99) THEN CLS:SHELL "700G151.BAT"
  38.         IF A$=CHR$(68) OR A$=CHR$(100) THEN CLS:SHELL "G158.BAT"
  39.         IF A$=CHR$(69) OR A$=CHR$(101) THEN CLS:SHELL "G298.BAT"
  40.         IF A$=CHR$(70) OR A$=CHR$(102) THEN CLS:SHELL "G221.BAT"
  41.         IF A$=CHR$(71) OR A$=CHR$(103) THEN CLS:SHELL "G227.BAT"
  42.         IF A$=CHR$(72) OR A$=CHR$(104) THEN CLS:SHELL "700G157.BAT"
  43.         IF A$=CHR$(73) OR A$=CHR$(105) THEN CLS:SHELL "700G031.BAT"
  44.         IF A$=CHR$(74) OR A$=CHR$(106) THEN CLS:SHELL "G182.BAT"
  45.         IF A$=CHR$(75) OR A$=CHR$(107) THEN CLS:SHELL "700G038.BAT"
  46.         IF A$=CHR$(76) OR A$=CHR$(108) THEN CLS:SHELL "G293.BAT"
  47.         IF A$=CHR$(77) OR A$=CHR$(109) THEN CLS:SHELL "700G174.BAT"
  48.         IF A$=CHR$(78) OR A$=CHR$(110) THEN CLS:SHELL "700G052.BAT"
  49.         IF A$=CHR$(79) OR A$=CHR$(111) THEN CLS:SHELL "700G171.BAT"
  50.         IF A$=CHR$(80) OR A$=CHR$(112) THEN CLS:SHELL "700G027.BAT"
  51.         IF A$=CHR$(81) OR A$=CHR$(113) THEN CLS:SHELL "G304.BAT"
  52.         IF A$=CHR$(82) OR A$=CHR$(114) THEN CLS:SHELL "G300.BAT"
  53.         IF A$=CHR$(83) OR A$=CHR$(115) THEN CLS:SHELL "G181.BAT"
  54.         IF A$=CHR$(84) OR A$=CHR$(116) THEN CLS:SHELL "700G060.BAT"
  55.         IF A$=CHR$(85) OR A$=CHR$(117) THEN CLS:SHELL "700G045.BAT"
  56.         IF A$=CHR$(27) THEN GOTO SEVENCLUBS
  57.      GOTO SEVENPARTA
  58.  
  59. SEVENPARTB:
  60. SHELL "700CLUB2.COM"
  61. PARTBMENU:
  62.      A$=INKEY$
  63.         IF A$=CHR$(65) OR A$=CHR$(97) THEN CLS:SHELL "G290.BAT"
  64.         IF A$=CHR$(66) OR A$=CHR$(98) THEN CLS:SHELL "G276.BAT"
  65.         IF A$=CHR$(67) OR A$=CHR$(99) THEN CLS:SHELL "700G165.BAT"
  66.         IF A$=CHR$(68) OR A$=CHR$(100) THEN CLS:SHELL "700G034.BAT"
  67.         IF A$=CHR$(69) OR A$=CHR$(101) THEN CLS:SHELL "G292.BAT"
  68.         IF A$=CHR$(70) OR A$=CHR$(102) THEN CLS:SHELL "G189.BAT"
  69.         IF A$=CHR$(71) OR A$=CHR$(103) THEN CLS:SHELL "G228.BAT"
  70.         IF A$=CHR$(72) OR A$=CHR$(104) THEN CLS:SHELL "G172.BAT"
  71.         IF A$=CHR$(73) OR A$=CHR$(105) THEN CLS:SHELL "G297.BAT"
  72.         IF A$=CHR$(74) OR A$=CHR$(106) THEN CLS:SHELL "700G152.BAT"
  73.         IF A$=CHR$(75) OR A$=CHR$(107) THEN CLS:SHELL "700G160.BAT"
  74.         IF A$=CHR$(76) OR A$=CHR$(108) THEN CLS:SHELL "700G179.BAT"
  75.         IF A$=CHR$(77) OR A$=CHR$(109) THEN CLS:SHELL "700G159.BAT"
  76.         IF A$=CHR$(78) OR A$=CHR$(110) THEN CLS:SHELL "700G041.BAT"
  77.         IF A$=CHR$(79) OR A$=CHR$(111) THEN CLS:SHELL "G187.BAT"
  78.         IF A$=CHR$(80) OR A$=CHR$(112) THEN CLS:SHELL "G280.BAT"
  79.         IF A$=CHR$(81) OR A$=CHR$(113) THEN CLS:SHELL "700G028.BAT"
  80.         IF A$=CHR$(82) OR A$=CHR$(114) THEN CLS:SHELL "G180.BAT"
  81.         IF A$=CHR$(83) OR A$=CHR$(115) THEN CLS:SHELL "G278.BAT"
  82.         IF A$=CHR$(84) OR A$=CHR$(116) THEN CLS:SHELL "G153.BAT"
  83.         IF A$=CHR$(85) OR A$=CHR$(117) THEN CLS:SHELL "G285.BAT"
  84.         IF A$=CHR$(27) THEN GOTO SEVENCLUBS
  85.      GOTO SEVENPARTB
  86.  
  87. FABLES:
  88.  
  89. SHELL "AESOP.COM"
  90.  
  91. AESOPMENU:
  92.     A$=INKEY$
  93.        IF A$=CHR$(49) THEN GOTO THEFABLES
  94.        IF A$=CHR$(50) THEN GOTO THELIFE
  95.        IF A$=CHR$(27) THEN GOTO BOOKSHELF
  96.     GOTO AESOPMENU
  97.  
  98. THEFABLES:
  99. SHELL "CD\BOOKS\AESOP"
  100. SHELL "SHOW.BAT"
  101. SHELL "CD\MENU"
  102. GOTO FABLES
  103.  
  104. THELIFE:
  105. SHELL "CD\BOOKS\AESOP"
  106. SHELL "LIFE.BAT"
  107. SHELL "CD\MENU"
  108. GOTO FABLES
  109.  
  110.  
  111. AUTOS:
  112. SHELL "AUTOS.COM"
  113. AUTOMENU:
  114.     A$=INKEY$
  115.        IF A$=CHR$(49) THEN GOTO BEN
  116.        IF A$=CHR$(50) THEN GOTO BOOKER
  117.        IF A$=CHR$(51) THEN GOTO FREDDY
  118.        IF A$=CHR$(27) THEN GOTO BOOKSHELF
  119.     GOTO AUTOMENU
  120.  
  121. BEN:
  122. SHELL "CD\AUTOS\BENFRANK"
  123. SHELL "SHOW.BAT"
  124. SHELL "CD\MENU"
  125. GOTO AUTOS
  126.  
  127. BOOKER:
  128. SHELL "CD\AUTOS\BOOKER_T"
  129. SHELL "SHOW.BAT"
  130. SHELL "CD\MENU"
  131. GOTO AUTOS
  132.  
  133. FREDDY:
  134. SHELL "CD\AUTOS\FREDDOUG"
  135. SHELL "SHOW.BAT"
  136. SHELL "CD\MENU"
  137. GOTO AUTOS
  138.  
  139. GOVERN:
  140. SHELL "GOVERN.COM"
  141.  
  142. GOVERNMENU:
  143.     A$=INKEY$
  144.        IF A$=CHR$(65) OR A$=CHR$(97) THEN GOTO HERITAGE
  145.        IF A$=CHR$(66) OR A$=CHR$(98) THEN GOTO CIABOOK
  146.        IF A$=CHR$(67) OR A$=CHR$(99) THEN GOTO HISTORY
  147.        IF A$=CHR$(68) OR A$=CHR$(100) THEN GOTO IRSERVICE
  148.        IF A$=CHR$(69) OR A$=CHR$(101) THEN GOTO LEGALDEPT
  149.        IF A$=CHR$(70) OR A$=CHR$(102) THEN GOTO NEWWORLD
  150.        IF A$=CHR$(71) OR A$=CHR$(103) THEN GOTO NUCLEAR
  151.        IF A$=CHR$(72) OR A$=CHR$(104) THEN GOTO PIWORK
  152.        IF A$=CHR$(73) OR A$=CHR$(105) THEN GOTO BILLS
  153.        IF A$=CHR$(74) OR A$=CHR$(106) THEN GOTO INVENT
  154.        IF A$=CHR$(27) THEN GOTO BOOKSHELF
  155.     GOTO GOVERNMENU
  156.  
  157. HERITAGE:
  158. SHELL "CD\GOVERN\HERITAGE"
  159. SHELL "HERITAGE.EXE"
  160. SHELL "CD\MENU"
  161. GOTO GOVERN
  162.  
  163. CIABOOK:
  164. SHELL "CD\GOVERN\CIA"
  165. SHELL "CIA.EXE"
  166. SHELL "CD\MENU"
  167. GOTO GOVERN
  168.  
  169. HISTORY:
  170. SHELL "HISTOR.COM"
  171. HISTORMENU:
  172.       A$=INKEY$
  173.          IF A$=CHR$(49) THEN GOTO BUGLE
  174.          IF A$=CHR$(50) THEN GOTO STARS
  175.          IF A$=CHR$(65) OR A$=CHR$(97) THEN GOTO ANNAPOLIS
  176.          IF A$=CHR$(66) OR A$=CHR$(98) THEN GOTO ARTCONFED
  177.          IF A$=CHR$(67) OR A$=CHR$(99) THEN GOTO CHARLOTTE
  178.          IF A$=CHR$(68) OR A$=CHR$(100) THEN GOTO DECIND
  179.          IF A$=CHR$(69) OR A$=CHR$(101) THEN GOTO DECCAUSE
  180.          IF A$=CHR$(70) OR A$=CHR$(102) THEN GOTO FIRSTTHNKS
  181.          IF A$=CHR$(71) OR A$=CHR$(103) THEN GOTO GETTYS
  182.          IF A$=CHR$(72) OR A$=CHR$(104) THEN GOTO MAGNA
  183.          IF A$=CHR$(73) OR A$=CHR$(105) THEN GOTO MAYFLOW
  184.          IF A$=CHR$(74) OR A$=CHR$(106) THEN GOTO PARIS
  185.          IF A$=CHR$(75) OR A$=CHR$(107) THEN GOTO TREATGREEN
  186.          IF A$=CHR$(76) OR A$=CHR$(108) THEN GOTO USCONSTI
  187.          IF A$=CHR$(27) THEN GOTO GOVERN
  188.       GOTO HISTORMENU
  189.  
  190. BUGLE:
  191. SHELL "CD\GOVERN\HISTDOCS"
  192. SHELL "BUGLE.EXE"
  193. SHELL "CD\MENU"
  194. GOTO HISTORY
  195.  
  196. STARS:
  197. SHELL "CD\GOVERN\HISTDOCS"
  198. SHELL "SSB.EXE"
  199. SHELL "CD\MENU"
  200. GOTO HISTORY
  201.  
  202. ANNAPOLIS:
  203. SHELL "CD\GOVERN\HISTDOCS"
  204. SHELL "VIEW ANNAPCON.TXT"
  205. SHELL "CD\MENU"
  206. GOTO HISTORY
  207.  
  208. ARTCONFED:
  209. SHELL "CD\GOVERN\HISTDOCS"
  210. SHELL "VIEW ARTCONF.TXT"
  211. SHELL "CD\MENU"
  212. GOTO HISTORY
  213.  
  214. CHARLOTTE:
  215. SHELL "CD\GOVERN\HISTDOCS"
  216. SHELL "VIEW CHARLOTT.TXT"
  217. SHELL "CD\MENU"
  218. GOTO HISTORY
  219.  
  220. DECIND:
  221. SHELL "CD\GOVERN\HISTDOCS"
  222. SHELL "VIEW DEC_INDP.TXT"
  223. SHELL "CD\MENU"
  224. GOTO HISTORY
  225.  
  226. DECCAUSE:
  227. SHELL "CD\GOVERN\HISTDOCS"
  228. SHELL "VIEW DEC_ARMS.TXT"
  229. SHELL "CD\MENU"
  230. GOTO HISTORY
  231.  
  232. FIRSTTHNKS:
  233. SHELL "CD\GOVERN\HISTDOCS"
  234. SHELL "VIEW THANKSGI.TXT"
  235. SHELL "CD\MENU"
  236. GOTO HISTORY
  237.  
  238. GETTYS:
  239. SHELL "CD\GOVERN\HISTDOCS"
  240. SHELL "VIEW GETTYADR.TXT"
  241. SHELL "CD\MENU"
  242. GOTO HISTORY
  243.  
  244. MAGNA:
  245. SHELL "CD\GOVERN\HISTDOCS"
  246. SHELL "VIEW MAGNA_CA.TXT"
  247. SHELL "CD\MENU"
  248. GOTO HISTORY
  249.  
  250. MAYFLOW:
  251. SHELL "CD\GOVERN\HISTDOCS"
  252. SHELL "VIEW MAYFLOWE.TXT"
  253. SHELL "CD\MENU"
  254. GOTO HISTORY
  255.  
  256. PARIS:
  257. SHELL "CD\GOVERN\HISTDOCS"
  258. SHELL "VIEW PARISTRE.TXT"
  259. SHELL "CD\MENU"
  260. GOTO HISTORY
  261.  
  262. TREATGREEN:
  263. SHELL "CD\GOVERN\HISTDOCS"
  264. SHELL "VIEW GREENTRE.TXT"
  265. SHELL "CD\MENU"
  266. GOTO HISTORY
  267.  
  268. USCONSTI:
  269. SHELL "CD\GOVERN\CONSTIT"
  270. SHELL "CONSTITU.EXE"
  271. SHELL "CD\MENU"
  272. GOTO HISTORY
  273.  
  274. IRSERVICE:
  275. SHELL "IRS.COM"
  276. IRSMENU:
  277.    A$=INKEY$
  278.       IF A$=CHR$(49) THEN GOTO REVOLT
  279.       IF A$=CHR$(50) THEN GOTO RIGHTS
  280.       IF A$=CHR$(51) THEN GOTO FEDZONE
  281.       IF A$=CHR$(27) THEN GOTO GOVERN
  282.    GOTO IRSMENU
  283.  
  284. REVOLT:
  285. SHELL "CD\GOVERN\REVOLT"
  286. SHELL "REVOLT"
  287. SHELL "CD\MENU"
  288. GOTO IRSERVICE
  289.  
  290. RIGHTS:
  291. SHELL "CD\GOVERN\TAXBILL"
  292. SHELL "SHOW.BAT"
  293. SHELL "CD\MENU"
  294. GOTO IRSERVICE
  295.  
  296. FEDZONE:
  297. SHELL "CD\GOVERN\FEDZONE"
  298. SHELL "SHOW.BAT"
  299. SHELL "CD\MENU"
  300. GOTO IRSERVICE
  301.  
  302. LEGALDEPT:
  303. SHELL "LEGAL.COM"
  304. LEGALMENU:
  305.      A$=INKEY$
  306.         IF A$=CHR$(49) THEN GOTO COMMONLAW
  307.         IF A$=CHR$(50) THEN GOTO COURTS
  308.         IF A$=CHR$(51) THEN GOTO JURYRITE
  309.         IF A$=CHR$(52) THEN GOTO LEGALTUT
  310.         IF A$=CHR$(53) THEN GOTO OJTRANS
  311.         IF A$=CHR$(54) THEN GOTO BEARARMS
  312.         IF A$=CHR$(55) THEN GOTO ROEVWADE
  313.         IF A$=CHR$(27) THEN GOTO GOVERN
  314.      GOTO LEGALMENU
  315.  
  316. COMMONLAW:
  317. SHELL "CD\GOVERN\COMMON"
  318. SHELL "LAW.EXE"
  319. SHELL "CD\MENU"
  320. GOTO LEGALDEPT
  321.  
  322. COURTS:
  323. SHELL "CD\GOVERN\COURTS"
  324. SHELL "COURTP.EXE"
  325. SHELL "CD\MENU"
  326. GOTO LEGALDEPT
  327.  
  328. JURYRITE:
  329. SHELL "CD\GOVERN\JURYRITE"
  330. SHELL "SHOW.BAT"
  331. SHELL "CD\MENU"
  332. GOTO LEGALDEPT
  333.  
  334. LEGALTUT:
  335. SHELL "CD\GOVERN\LAW"
  336. SHELL "LEGAL.EXE"
  337. SHELL "CD\MENU"
  338. GOTO LEGALDEPT
  339.  
  340. OJTRANS:
  341. SHELL "CD\GOVERN\OJ_TRANS"
  342. SHELL "SHOW.BAT"
  343. SHELL "CD\MENU"
  344. GOTO LEGALDEPT
  345.  
  346. BEARARMS:
  347. SHELL "CD\GOVERN\BEAR_ARM"
  348. SHELL "BEGIN.EXE"
  349. SHELL "CD\MENU"
  350. GOTO LEGALDEPT
  351.  
  352. ROEVWADE:
  353. SHELL "CD\GOVERN\ROEVWADE"
  354. SHELL "SHOW.BAT"
  355. SHELL "CD\MENU"
  356. GOTO LEGALDEPT
  357.  
  358. NEWWORLD:
  359. SHELL "NEWWORLD.COM"
  360. NEWWORLDMENU:
  361.     A$=INKEY$
  362.        IF A$=CHR$(49) THEN GOTO NEWWR
  363.        IF A$=CHR$(50) THEN GOTO VAMPIRE
  364.        IF A$=CHR$(27) THEN GOTO GOVERN
  365.     GOTO NEWWORLDMENU
  366.  
  367. NEWWR:
  368. SHELL "CD\GOVERN\NEWORDER"
  369. SHELL "BEGIN.EXE"
  370. SHELL "CD\MENU"
  371. GOTO NEWWORLD
  372.  
  373. VAMPIRE:
  374. SHELL "CD\GOVERN\VAMPIRE"
  375. SHELL "SHOW.BAT"
  376. SHELL "CD\MENU"
  377. GOTO NEWWORLD
  378.  
  379. NUCLEAR:
  380. SHELL "CD\GOVERN\NUCLEAR"
  381. SHELL "SHOW.BAT"
  382. SHELL "CD\MENU"
  383. GOTO GOVERN
  384.  
  385. PIWORK:
  386. SHELL "CD\GOVERN\PI_WORK"
  387. SHELL "BOOKREAD"
  388. SHELL "CD\MENU"
  389. GOTO GOVERN
  390.  
  391. BILLS:
  392. SHELL "BILLS.COM"
  393. BILLMENU:
  394.    A$=INKEY$
  395.       IF A$=CHR$(49) THEN GOTO HEALTH
  396.       IF A$=CHR$(50) THEN GOTO NAFTA
  397.       IF A$=CHR$(51) THEN GOTO CRIME
  398.       IF A$=CHR$(27) THEN GOTO GOVERN
  399.    GOTO BILLMENU
  400.  
  401. HEALTH:
  402. SHELL "CD\GOVERN\HEALTH"
  403. SHELL "SHOW.BAT"
  404. SHELL "CD\MENU"
  405. GOTO BILLS
  406.  
  407. NAFTA:
  408. SHELL "CD\GOVERN\NAFTA"
  409. SHELL "LIST.COM"
  410. SHELL "CD\MENU"
  411. GOTO BILLS
  412.  
  413. CRIME:
  414. SHELL "CD\GOVERN\CRIMEBIL"
  415. SHELL "SHOW.BAT"
  416. SHELL "CD\MENU"
  417. GOTO BILLS
  418.  
  419. INVENT:
  420. SHELL "CD\GOVERN\REINVENT"
  421. SHELL "BEGIN.EXE"
  422. SHELL "CD\MENU"
  423. GOTO GOVERN
  424.  
  425. LITERATURE:
  426. SHELL "LITMENU.COM"
  427. LITMENU:
  428.      A$=INKEY$
  429.         IF A$=CHR$(49) THEN GOTO GLONE
  430.         IF A$=CHR$(50) THEN GOTO GLTWO
  431.         IF A$=CHR$(51) THEN GOTO GLTHREE
  432.         IF A$=CHR$(52) THEN GOTO GLFOUR
  433.         IF A$=CHR$(53) THEN GOTO GLFIVE
  434.         IF A$=CHR$(54) THEN GOTO GLSIX
  435.         IF A$=CHR$(55) THEN GOTO GLSEVEN
  436.         IF A$=CHR$(27) THEN GOTO BOOKSHELF
  437.      GOTO LITMENU
  438.  
  439. GLONE:
  440. SHELL "GREAT1.COM"
  441. GL1MENU:
  442.      A$=INKEY$
  443.         IF A$=CHR$(49) THEN GOTO HUCK
  444.         IF A$=CHR$(50) THEN GOTO ALICE
  445.         IF A$=CHR$(51) THEN GOTO ANNEAVON
  446.         IF A$=CHR$(52) THEN GOTO ANNEGREEN
  447.         IF A$=CHR$(53) THEN GOTO AROUNDWRLD
  448.         IF A$=CHR$(54) THEN GOTO AYALA
  449.         IF A$=CHR$(55) THEN GOTO BEASTS
  450.         IF A$=CHR$(56) THEN GOTO BEOWULF
  451.         IF A$=CHR$(27) THEN GOTO LITERATURE
  452.      GOTO GL1MENU
  453.  
  454. HUCK:
  455. SHELL "CD\BOOKS\HUCKFINN"
  456. SHELL "SHOW.BAT"
  457. SHELL "CD\MENU"
  458. GOTO GLONE
  459.  
  460. ALICE:
  461. SHELL "CD\BOOKS\ALICE"
  462. SHELL "SHOW.BAT"
  463. SHELL "CD\MENU"
  464. GOTO GLONE
  465.  
  466. ANNEAVON:
  467. SHELL "CD\BOOKS\AVONLEA"
  468. SHELL "SHOW.BAT"
  469. SHELL "CD\MENU"
  470. GOTO GLONE
  471.  
  472. ANNEGREEN:
  473. SHELL "CD\BOOKS\ANNE"
  474. SHELL "SHOW.BAT"
  475. SHELL "CD\MENU"
  476. GOTO GLONE
  477.  
  478. AROUNDWRLD:
  479. SHELL "CD\BOOKS\80_DAYS"
  480. SHELL "SHOW.BAT"
  481. SHELL "CD\MENU"
  482. GOTO GLONE
  483.  
  484. AYALA:
  485. SHELL "CD\BOOKS\AYALA"
  486. SHELL "SHOW.BAT"
  487. SHELL "CD\MENU"
  488. GOTO GLONE
  489.  
  490. BEASTS:
  491. SHELL "CD\BOOKS\TARZAN"
  492. SHELL "SHOW.BAT"
  493. SHELL "CD\MENU"
  494. GOTO GLONE
  495.  
  496. BEOWULF:
  497. SHELL "CD\BOOKS\BEOWULF"
  498. SHELL "SHOW.BAT"
  499. SHELL "CD\MENU"
  500. GOTO GLONE
  501.  
  502. GLTWO:
  503. SHELL "GREAT2.COM"
  504. GL2MENU:
  505.      A$=INKEY$
  506.         IF A$=CHR$(49) THEN GOTO CANTER
  507.         IF A$=CHR$(50) THEN GOTO CLOVIS
  508.         IF A$=CHR$(51) THEN GOTO DRACULA
  509.         IF A$=CHR$(52) THEN GOTO EGYPT
  510.         IF A$=CHR$(53) THEN GOTO FANNY
  511.         IF A$=CHR$(54) THEN GOTO FROMEARTH
  512.         IF A$=CHR$(55) THEN GOTO PITCAIRN
  513.         IF A$=CHR$(56) THEN GOTO BIBLE
  514.         IF A$=CHR$(27) THEN GOTO LITERATURE
  515.      GOTO GL2MENU
  516.  
  517. CANTER:
  518. SHELL "CD\BOOKS\CANTER"
  519. SHELL "SHOW.BAT"
  520. SHELL "CD\MENU"
  521. GOTO GLTWO
  522.  
  523. CLOVIS:
  524. SHELL "CD\BOOKS\CLOVIS"
  525. SHELL "SHOW.BAT"
  526. SHELL "CD\MENU"
  527. GOTO GLTWO
  528.  
  529. DRACULA:
  530. SHELL "CD\BOOKS\DRACULA"
  531. SHELL "GO.BAT"
  532. SHELL "CD\MENU"
  533. GOTO GLTWO
  534.  
  535. EGYPT:
  536. SHELL "CD\BOOKS\BOOKDEAD"
  537. SHELL "SHOW.BAT"
  538. SHELL "CD\MENU"
  539. GOTO GLTWO
  540.  
  541. FANNY:
  542. SHELL "CD\BOOKS\FANNY"
  543. SHELL "SHOW.BAT"
  544. SHELL "CD\MENU"
  545. GOTO GLTWO
  546.  
  547. FROMEARTH:
  548. SHELL "CD\BOOKS\MOON"
  549. SHELL "SHOW.BAT"
  550. SHELL "CD\MENU"
  551. GOTO GLTWO
  552.  
  553. PITCAIRN:
  554. SHELL "CD\BOOKS\TWAIN"
  555. SHELL "SHOWT.BAT"
  556. SHELL "CD\MENU"
  557. GOTO GLTWO
  558.  
  559. BIBLE:
  560. SHELL "CD\BOOKS\BIBLE"
  561. SHELL "BIBLESTU.EXE"
  562. SHELL "CD\MENU"
  563. GOTO GLTWO
  564.  
  565.  
  566. GLTHREE:
  567. SHELL "GREAT3.COM"
  568. GL3MENU:
  569.      A$=INKEY$
  570.         IF A$=CHR$(49) THEN GOTO GABLES
  571.         IF A$=CHR$(50) THEN GOTO IVANHOE
  572.         IF A$=CHR$(51) THEN GOTO CTREARTH
  573.         IF A$=CHR$(52) THEN GOTO JOYWOMAN
  574.         IF A$=CHR$(53) THEN GOTO JUSTDAVE
  575.         IF A$=CHR$(54) THEN GOTO SLEEPY
  576.         IF A$=CHR$(55) THEN GOTO MISERABLE
  577.         IF A$=CHR$(56) THEN GOTO CHURCHILL
  578.         IF A$=CHR$(27) THEN GOTO LITERATURE
  579.      GOTO GL3MENU
  580.  
  581. GABLES:
  582. SHELL "CD\BOOKS\HOUSEOF7"
  583. SHELL "SHOW.BAT"
  584. SHELL "CD\MENU"
  585. GOTO GLTHREE
  586.  
  587. IVANHOE:
  588. SHELL "CD\BOOKS\IVANHOE"
  589. SHELL "SHOW.BAT"
  590. SHELL "CD\MENU"
  591. GOTO GLTHREE
  592.  
  593. CTREARTH:
  594. SHELL "CD\BOOKS\JOURNEY"
  595. SHELL "SHOW.BAT"
  596. SHELL "CD\MENU"
  597. GOTO GLTHREE
  598.  
  599. JOYWOMAN:
  600. SHELL "CD\BOOKS\JOYWOMAN"
  601. SHELL "SHOW.BAT"
  602. SHELL "CD\MENU"
  603. GOTO GLTHREE
  604.  
  605. JUSTDAVE:
  606. SHELL "CD\BOOKS\JUSTDAVE"
  607. SHELL "SHOW.BAT"
  608. SHELL "CD\MENU"
  609. GOTO GLTHREE
  610.  
  611. SLEEPY:
  612. SHELL "CD\BOOKS\SLEEPY"
  613. SHELL "SHOW.BAT"
  614. SHELL "CD\MENU"
  615. GOTO GLTHREE
  616.  
  617. MISERABLE:
  618. SHELL "CD\BOOKS\LESMISER"
  619. SHELL "SHOW.BAT"
  620. SHELL "CD\MENU"
  621. GOTO GLTHREE
  622.  
  623. CHURCHILL:
  624. SHELL "CD\BOOKS\CHURCHIL"
  625. SHELL "LCL.EXE"
  626. SHELL "CD\MENU"
  627. GOTO GLTHREE
  628.  
  629.  
  630. GLFOUR:
  631. SHELL "GREAT4.COM"
  632. GL4MENU:
  633.      A$=INKEY$
  634.         IF A$=CHR$(49) THEN GOTO LUDMIST
  635.         IF A$=CHR$(50) THEN GOTO BOVARY
  636.         IF A$=CHR$(51) THEN GOTO MANALIVE
  637.         IF A$=CHR$(52) THEN GOTO NATLANTIS
  638.         IF A$=CHR$(53) THEN GOTO NIAGARA
  639.         IF A$=CHR$(54) THEN GOTO HUMBOND
  640.         IF A$=CHR$(55) THEN GOTO ORTHODOXY
  641.         IF A$=CHR$(56) THEN GOTO PARALOST
  642.         IF A$=CHR$(27) THEN GOTO LITERATURE
  643.      GOTO GL4MENU
  644.  
  645. LUDMIST:
  646. SHELL "CD\BOOKS\LUD_MIST"
  647. SHELL "SHOW.BAT"
  648. SHELL "CD\MENU"
  649. GOTO GLFOUR
  650.  
  651. BOVARY:
  652. SHELL "CD\BOOKS\MADAMBOV"
  653. SHELL "SHOW.BAT"
  654. SHELL "CD\MENU"
  655. GOTO GLFOUR
  656.  
  657. MANALIVE:
  658. SHELL "CD\BOOKS\MANALIVE"
  659. SHELL "SHOW.BAT"
  660. SHELL "CD\MENU"
  661. GOTO GLFOUR
  662.  
  663. NATLANTIS:
  664. SHELL "CD\BOOKS\ATLANTIS"
  665. SHELL "SHOW.BAT"
  666. SHELL "CD\MENU"
  667. GOTO GLFOUR
  668.  
  669. NIAGARA:
  670. SHELL "CD\BOOKS\TWAIN"
  671. SHELL "SHOWN.BAT"
  672. SHELL "CD\MENU"
  673. GOTO GLFOUR
  674.  
  675. HUMBOND:
  676. SHELL "CD\BOOKS\HUMANBND"
  677. SHELL "SHOW.BAT"
  678. SHELL "CD\MENU"
  679. GOTO GLFOUR
  680.  
  681. ORTHODOXY:
  682. SHELL "CD\BOOKS\ORTHODOX"
  683. SHELL "SHOW.BAT"
  684. SHELL "CD\MENU"
  685. GOTO GLFOUR
  686.  
  687. PARALOST:
  688. SHELL "CD\BOOKS\MILTON"
  689. SHELL "SHOW.BAT"
  690. SHELL "CD\MENU"
  691. GOTO GLFOUR
  692.  
  693.  
  694. GLFIVE:
  695. SHELL "GREAT5.COM"
  696. GL5MENU:
  697.      A$=INKEY$
  698.         IF A$=CHR$(49) THEN GOTO PETEPAN
  699.         IF A$=CHR$(50) THEN GOTO DORIAN
  700.         IF A$=CHR$(51) THEN GOTO PITS
  701.         IF A$=CHR$(52) THEN GOTO QUEEN
  702.         IF A$=CHR$(53) THEN GOTO SONGLARK
  703.         IF A$=CHR$(54) THEN GOTO SUNTZU
  704.         IF A$=CHR$(55) THEN GOTO OPAR
  705.         IF A$=CHR$(56) THEN GOTO CONTROLL
  706.         IF A$=CHR$(27) THEN GOTO LITERATURE
  707.      GOTO GL5MENU
  708.  
  709. PETEPAN:
  710. SHELL "CD\BOOKS\PETERPAN"
  711. SHELL "BOOK.COM"
  712. SHELL "CD\MENU"
  713. GOTO GLFIVE
  714.  
  715. DORIAN:
  716. SHELL "CD\BOOKS\DORIAN"
  717. SHELL "SHOW.BAT"
  718. SHELL "CD\MENU"
  719. GOTO GLFIVE
  720.  
  721. PITS:
  722. SHELL "CD\BOOKS\PIT_PEND"
  723. SHELL "SHOW.BAT"
  724. SHELL "CD\MENU"
  725. GOTO GLFIVE
  726.  
  727. QUEEN:
  728. SHELL "CD\BOOKS\Q_SPADES"
  729. SHELL "SHOW.BAT"
  730. SHELL "CD\MENU"
  731. GOTO GLFIVE
  732.  
  733. SONGLARK:
  734. SHELL "CD\BOOKS\SONGLARK"
  735. SHELL "SHOW.BAT"
  736. SHELL "CD\MENU"
  737. GOTO GLFIVE
  738.  
  739. SUNTZU:
  740. SHELL "CD\BOOKS\SUNZU"
  741. SHELL "SHOW.BAT"
  742. SHELL "CD\MENU"
  743. GOTO GLFIVE
  744.  
  745. OPAR:
  746. SHELL "CD\BOOKS\TARZAN"
  747. SHELL "SHOW1.BAT"
  748. SHELL "CD\MENU"
  749. GOTO GLFIVE
  750.  
  751. CONTROLL:
  752. SHELL "CD\BOOKS\MINDCTRL"
  753. SHELL "SHOW.BAT"
  754. SHELL "CD\MENU"
  755. GOTO GLFIVE
  756.  
  757. GLSIX:
  758. SHELL "GREAT6.COM"
  759. GL6MENU:
  760.      A$=INKEY$
  761.         IF A$=CHR$(49) THEN GOTO TIMEMACH
  762.         IF A$=CHR$(50) THEN GOTO WRECK
  763.         IF A$=CHR$(51) THEN GOTO LOOKGLASS
  764.         IF A$=CHR$(52) THEN GOTO THUVIA
  765.         IF A$=CHR$(53) THEN GOTO TIMEDISC
  766.         IF A$=CHR$(54) THEN GOTO TOMSAW
  767.         IF A$=CHR$(55) THEN GOTO TRAITOR
  768.         IF A$=CHR$(56) THEN GOTO VIRGIL
  769.         IF A$=CHR$(27) THEN GOTO LITERATURE
  770.      GOTO GL6MENU
  771.  
  772. TIMEMACH:
  773. SHELL "CD\BOOKS\TIMEMACH"
  774. SHELL "SHOW.BAT"
  775. SHELL "CD\MENU"
  776. GOTO GLSIX
  777.  
  778. WRECK:
  779. SHELL "CD\BOOKS\WRECKER"
  780. SHELL "SHOW.BAT"
  781. SHELL "CD\MENU"
  782. GOTO GLSIX
  783.  
  784. LOOKGLASS:
  785. SHELL "CD\BOOKS\LOOKGLAS"
  786. SHELL "SHOW.BAT"
  787. SHELL "CD\MENU"
  788. GOTO GLSIX
  789.  
  790. THUVIA:
  791. SHELL "CD\BOOKS\MMARS"
  792. SHELL "SHOW.BAT"
  793. SHELL "CD\MENU"
  794. GOTO GLSIX
  795.  
  796. TIMEDISC:
  797. SHELL "CD\BOOKS\TIMETALK"
  798. SHELL "START.BAT"
  799. SHELL "CD\MENU"
  800. GOTO GLSIX
  801.  
  802. TOMSAW:
  803. SHELL "CD\BOOKS\TWAIN"
  804. SHELL "SHOW.BAT"
  805. SHELL "CD\MENU"
  806. GOTO GLSIX
  807.  
  808. TRAITOR:
  809. SHELL "CD\BOOKS\TRAITOR"
  810. SHELL "GO.EXE"
  811. SHELL "CD\MENU"
  812. GOTO GLSIX
  813.  
  814. VIRGIL:
  815. SHELL "CD\BOOKS\AENEID"
  816. SHELL "SHOW.BAT"
  817. SHELL "CD\MENU"
  818. GOTO GLSIX
  819.  
  820.  
  821. GLSEVEN:
  822. SHELL "GREAT7.COM"
  823. GL7MENU:
  824.      A$=INKEY$
  825.         IF A$=CHR$(49) THEN GOTO WHATMAN
  826.         IF A$=CHR$(50) THEN GOTO HSTERN
  827.         IF A$=CHR$(51) THEN GOTO YOUNGS
  828.         IF A$=CHR$(27) THEN GOTO LITERATURE
  829.      GOTO GL7MENU
  830.  
  831. WHATMAN:
  832. SHELL "CD\BOOKS\WHAT_MAN"
  833. SHELL "SHOW.BAT"
  834. SHELL "CD\MENU"
  835. GOTO GLSEVEN
  836.  
  837. HSTERN:
  838. SHELL "CD\BOOKS\STERN"
  839. SHELL "SHOW.BAT"
  840. SHELL "CD\MENU"
  841. GOTO GLSEVEN
  842.  
  843. YOUNGS:
  844. SHELL "CD\BOOKS\SCIENCE"
  845. SHELL "SHOW.BAT"
  846. SHELL "CD\MENU"
  847. GOTO GLSEVEN
  848.  
  849. MAKECASH:
  850. SHELL "MONEYS.COM"
  851. MONEYMENU:
  852.     A$=INKEY$
  853.        IF A$=CHR$(65) OR A$=CHR$(97) THEN GOTO BLKMKT
  854.        IF A$=CHR$(66) OR A$=CHR$(98) THEN GOTO FRANCH
  855.        IF A$=CHR$(67) OR A$=CHR$(99) THEN GOTO GINNY
  856.        IF A$=CHR$(68) OR A$=CHR$(100) THEN GOTO WEALTHSEC
  857.        IF A$=CHR$(69) OR A$=CHR$(101) THEN GOTO MAILSERV
  858.        IF A$=CHR$(70) OR A$=CHR$(102) THEN GOTO INVGOLD
  859.        IF A$=CHR$(71) OR A$=CHR$(103) THEN GOTO OPPORT
  860.        IF A$=CHR$(72) OR A$=CHR$(104) THEN GOTO AUCTIONS
  861.        IF A$=CHR$(73) OR A$=CHR$(105) THEN GOTO SWISSBANK
  862.        IF A$=CHR$(74) OR A$=CHR$(106) THEN GOTO TRVFREE
  863.        IF A$=CHR$(27) THEN GOTO BOOKSHELF
  864.     GOTO MONEYMENU
  865.  
  866.  
  867. BLKMKT:
  868. SHELL "CD\MONEY\BLKMARKT"
  869. SHELL "SHOW.BAT"
  870. SHELL "CD\MENU"
  871. GOTO MAKECASH
  872.  
  873. FRANCH:
  874. SHELL "CD\MONEY\FRANCHIS"
  875. SHELL "FRAN.EXE"
  876. SHELL "CD\MENU"
  877. GOTO MAKECASH
  878.  
  879. GINNY:
  880. SHELL "CD\MONEY\GINSENG"
  881. SHELL "BEGIN.EXE"
  882. SHELL "CD\MENU"
  883. GOTO MAKECASH
  884.  
  885. WEALTHSEC:
  886. SHELL "CD\MONEY\WEALTH"
  887. SHELL "SECRETS.COM"
  888. SHELL "CD\MENU"
  889. GOTO MAKECASH
  890.  
  891. MAILSERV:
  892. SHELL "CD\MONEY\MAILBIZ"
  893. SHELL "MAILBIZ.COM"
  894. SHELL "CD\MENU"
  895. GOTO MAKECASH
  896.  
  897. INVGOLD:
  898. SHELL "CD\MONEY\GOLD"
  899. SHELL "GOLD.COM"
  900. SHELL "CD\MENU"
  901. GOTO MAKECASH
  902.  
  903. OPPORT:
  904. SHELL "CD\MONEY\BUSINESS"
  905. SHELL "OA.EXE"
  906. SHELL "CD\MENU"
  907. GOTO MAKECASH
  908.  
  909. AUCTIONS:
  910. SHELL "CD\MONEY\AUCTIONS"
  911. SHELL "AUCTIONS.COM"
  912. SHELL "CD\MENU"
  913. GOTO MAKECASH
  914.  
  915. SWISSBANK:
  916. SHELL "CD\MONEY\SWISS"
  917. SHELL "SWISS.COM"
  918. SHELL "CD\MENU"
  919. GOTO MAKECASH
  920.  
  921. TRVFREE:
  922. SHELL "CD\MONEY\TRAVEL"
  923. SHELL "TRAVEL.COM"
  924. SHELL "CD\MENU"
  925. GOTO MAKECASH
  926.  
  927. MOVIES:
  928. SHELL "MOVIES.COM"
  929. MOVIEMENU:
  930.     A$=INKEY$
  931.        IF A$=CHR$(49) THEN GOTO MSCRIPTS
  932.        IF A$=CHR$(50) THEN GOTO MOVTG
  933.        IF A$=CHR$(51) THEN GOTO TREKKY
  934.        IF A$=CHR$(52) THEN GOTO TVGUIDE
  935.        IF A$=CHR$(27) THEN GOTO BOOKSHELF
  936.     GOTO MOVIEMENU
  937.  
  938. MSCRIPTS:
  939. SHELL "SCRIPTS.COM"
  940. SCRIPTMENU:
  941.     A$=INKEY$
  942.        IF A$=CHR$(49) THEN GOTO EMP
  943.        IF A$=CHR$(50) THEN GOTO RET
  944.        IF A$=CHR$(51) THEN GOTO GEN
  945.        IF A$=CHR$(52) THEN GOTO SWAR
  946.        IF A$=CHR$(27) THEN GOTO MOVIES
  947.     GOTO SCRIPTMENU
  948.  
  949. EMP:
  950. SHELL "CD\MOVIES\STARWARS"
  951. SHELL "SHOWE.BAT"
  952. SHELL "CD\MENU"
  953. GOTO MSCRIPTS
  954.  
  955. RET:
  956. SHELL "CD\MOVIES\STARWARS"
  957. SHELL "SHOWR.BAT"
  958. SHELL "CD\MENU"
  959. GOTO MSCRIPTS
  960.  
  961. GEN:
  962. SHELL "CD\MOVIES\STARWARS"
  963. SHELL "SHOWG.BAT"
  964. SHELL "CD\MENU"
  965. GOTO MSCRIPTS
  966.  
  967. SWAR:
  968. SHELL "CD\MOVIES\STARWARS"
  969. SHELL "SHOWW.BAT"
  970. SHELL "CD\MENU"
  971. GOTO MSCRIPTS
  972.  
  973. MOVTG:
  974. SHELL "CD\MOVIES\MOVIES"
  975. SHELL "MTG"
  976. END
  977.  
  978. TREKKY:
  979. SHELL "STARDATA.COM"
  980. TREKMENU:
  981.     A$=INKEY$
  982.        IF A$=CHR$(65) OR A$=CHR$(97) THEN GOTO CLOAK
  983.        IF A$=CHR$(66) OR A$=CHR$(98) THEN GOTO CREWD
  984.        IF A$=CHR$(67) OR A$=CHR$(99) THEN GOTO DSNINE
  985.        IF A$=CHR$(68) OR A$=CHR$(100) THEN GOTO HOLO
  986.        IF A$=CHR$(69) OR A$=CHR$(101) THEN GOTO KLING
  987.        IF A$=CHR$(70) OR A$=CHR$(102) THEN GOTO NEXTG
  988.        IF A$=CHR$(71) OR A$=CHR$(103) THEN GOTO OSERI
  989.        IF A$=CHR$(72) OR A$=CHR$(104) THEN GOTO STARB3
  990.        IF A$=CHR$(73) OR A$=CHR$(105) THEN GOTO SFPHY
  991.        IF A$=CHR$(74) OR A$=CHR$(106) THEN GOTO WARPD
  992.        IF A$=CHR$(27) THEN GOTO MOVIES
  993.     GOTO TREKMENU
  994.  
  995. CLOAK:
  996. SHELL "CD\MOVIES\STARTREK"
  997. SHELL "SHOW1.BAT"
  998. SHELL "CD\MENU"
  999. GOTO TREKKY
  1000.  
  1001. CREWD:
  1002. SHELL "CD\MOVIES\STARTREK"
  1003. SHELL "SHOW2.BAT"
  1004. SHELL "CD\MENU"
  1005. GOTO TREKKY
  1006.  
  1007. DSNINE:
  1008. SHELL "CD\MOVIES\STARTREK"
  1009. SHELL "SHOW3.BAT"
  1010. SHELL "CD\MENU"
  1011. GOTO TREKKY
  1012.  
  1013. HOLO:
  1014. SHELL "CD\MOVIES\STARTREK"
  1015. SHELL "SHOW4.BAT"
  1016. SHELL "CD\MENU"
  1017. GOTO TREKKY
  1018.  
  1019. KLING:
  1020. SHELL "CD\MOVIES\STARTREK"
  1021. SHELL "SHOW5.BAT"
  1022. SHELL "CD\MENU"
  1023. GOTO TREKKY
  1024.  
  1025. NEXTG:
  1026. SHELL "CD\MOVIES\STARTREK"
  1027. SHELL "SHOW6.BAT"
  1028. SHELL "CD\MENU"
  1029. GOTO TREKKY
  1030.  
  1031. OSERI:
  1032. SHELL "CD\MOVIES\STARTREK"
  1033. SHELL "SHOW7.BAT"
  1034. SHELL "CD\MENU"
  1035. GOTO TREKKY
  1036.  
  1037. STARB3:
  1038. SHELL "CD\SB3"
  1039. SHELL "SB3"
  1040. SHELL "CD\MENU"
  1041. GOTO TREKKY
  1042.  
  1043. SFPHY:
  1044. SHELL "CD\MOVIES\STARTREK"
  1045. SHELL "SHOW9.BAT"
  1046. SHELL "CD\MENU"
  1047. GOTO TREKKY
  1048.  
  1049. WARPD:
  1050. SHELL "CD\MOVIES\STARTREK"
  1051. SHELL "SHOW0.BAT"
  1052. SHELL "CD\MENU"
  1053. GOTO TREKKY
  1054.  
  1055. TVGUIDE:
  1056. SHELL "CD\MOVIES\TVGUIDE"
  1057. SHELL "GO.BAT"
  1058. SHELL "CD\MENU"
  1059. GOTO MOVIES
  1060.  
  1061. PLAYS:
  1062. SHELL "PLAYS.COM"
  1063. PLAYMENU:
  1064.   A$=INKEY$
  1065.     IF A$=CHR$(65) OR A$=CHR$(97) THEN SHELL "LIST TITUS.TXT":GOTO PLAYS
  1066.     IF A$=CHR$(66) OR A$=CHR$(98) THEN SHELL "LIST ROMEO.TXT":GOTO PLAYS
  1067.     IF A$=CHR$(67) OR A$=CHR$(99) THEN SHELL "LIST CEASER.TXT":GOTO PLAYS
  1068.     IF A$=CHR$(68) OR A$=CHR$(100) THEN SHELL "LIST HAMLET.TXT":GOTO PLAYS
  1069.     IF A$=CHR$(69) OR A$=CHR$(101) THEN SHELL "LIST OTHELLO.TXT":GOTO PLAYS
  1070.     IF A$=CHR$(70) OR A$=CHR$(102) THEN SHELL "LIST TIMON.TXT":GOTO PLAYS
  1071.     IF A$=CHR$(71) OR A$=CHR$(103) THEN SHELL "LIST KINGLEAR.TXT":GOTO PLAYS
  1072.     IF A$=CHR$(72) OR A$=CHR$(104) THEN SHELL "LIST MACBETH.TXT":GOTO PLAYS
  1073.     IF A$=CHR$(73) OR A$=CHR$(105) THEN SHELL "LIST CLEOPATR.TXT":GOTO PLAYS
  1074.     IF A$=CHR$(74) OR A$=CHR$(106) THEN SHELL "LIST CORIOLAN.TXT":GOTO PLAYS
  1075.     IF A$=CHR$(27) THEN GOTO BOOKSHELF
  1076.  GOTO PLAYMENU
  1077.  
  1078. POEMS:
  1079. SHELL "POEMS.COM"
  1080. POEMMENU:
  1081.      A$=INKEY$
  1082.         IF A$=CHR$(49) THEN GOTO COMPLAINT
  1083.         IF A$=CHR$(50) THEN GOTO DUNSANY
  1084.         IF A$=CHR$(51) THEN GOTO PASSPILG
  1085.         IF A$=CHR$(52) THEN GOTO TURTS
  1086.         IF A$=CHR$(53) THEN GOTO RAVEN
  1087.         IF A$=CHR$(54) THEN GOTO ULYSSES
  1088.         IF A$=CHR$(55) THEN GOTO RHINO
  1089.         IF A$=CHR$(27) THEN GOTO BOOKSHELF
  1090.      GOTO POEMMENU
  1091.  
  1092. COMPLAINT:
  1093. SHELL "CD\POEMS"
  1094. SHELL "SHOWL.BAT"
  1095. SHELL "CD\MENU"
  1096. GOTO POEMS
  1097.  
  1098. DUNSANY:
  1099. SHELL "DUNSANY.COM"
  1100. DUNMENU:
  1101.   A$=INKEY$
  1102.     IF A$=CHR$(65) OR A$=CHR$(97) THEN GOTO SS1
  1103.     IF A$=CHR$(66) OR A$=CHR$(98) THEN GOTO SS2
  1104.     IF A$=CHR$(67) OR A$=CHR$(99) THEN GOTO SS3
  1105.     IF A$=CHR$(68) OR A$=CHR$(100) THEN GOTO SS4
  1106.     IF A$=CHR$(69) OR A$=CHR$(101) THEN GOTO SS5
  1107.     IF A$=CHR$(70) OR A$=CHR$(102) THEN GOTO SS6
  1108.     IF A$=CHR$(71) OR A$=CHR$(103) THEN GOTO SS7
  1109.     IF A$=CHR$(72) OR A$=CHR$(104) THEN GOTO SS8
  1110.     IF A$=CHR$(73) OR A$=CHR$(105) THEN GOTO SS9
  1111.     IF A$=CHR$(74) OR A$=CHR$(106) THEN GOTO SS0
  1112.     IF A$=CHR$(27) THEN GOTO POEMS
  1113.  GOTO DUNMENU
  1114.  
  1115. SS1:
  1116. SHELL "CD\STORIES"
  1117. SHELL "SHOW1.BAT"
  1118. SHELL "CD\MENU"
  1119. GOTO DUNSANY
  1120.  
  1121. SS2:
  1122. SHELL "CD\STORIES"
  1123. SHELL "SHOW2.BAT"
  1124. SHELL "CD\MENU"
  1125. GOTO DUNSANY
  1126.  
  1127. SS3:
  1128. SHELL "CD\STORIES"
  1129. SHELL "SHOW3.BAT"
  1130. SHELL "CD\MENU"
  1131. GOTO DUNSANY
  1132.  
  1133. SS4:
  1134. SHELL "CD\STORIES"
  1135. SHELL "SHOW4.BAT"
  1136. SHELL "CD\MENU"
  1137. GOTO DUNSANY
  1138.  
  1139. SS5:
  1140. SHELL "CD\STORIES"
  1141. SHELL "SHOW5.BAT"
  1142. SHELL "CD\MENU"
  1143. GOTO DUNSANY
  1144.  
  1145. SS6:
  1146. SHELL "CD\STORIES"
  1147. SHELL "SHOW6.BAT"
  1148. SHELL "CD\MENU"
  1149. GOTO DUNSANY
  1150.  
  1151. SS7:
  1152. SHELL "CD\STORIES"
  1153. SHELL "SHOW7.BAT"
  1154. SHELL "CD\MENU"
  1155. GOTO DUNSANY
  1156.  
  1157. SS8:
  1158. SHELL "CD\STORIES"
  1159. SHELL "SHOW8.BAT"
  1160. SHELL "CD\MENU"
  1161. GOTO DUNSANY
  1162.  
  1163. SS9:
  1164. SHELL "CD\STORIES"
  1165. SHELL "SHOW9.BAT"
  1166. SHELL "CD\MENU"
  1167. GOTO DUNSANY
  1168.  
  1169. SS0:
  1170. SHELL "CD\STORIES"
  1171. SHELL "SHOW0.BAT"
  1172. SHELL "CD\MENU"
  1173. GOTO DUNSANY
  1174.  
  1175. PASSPILG:
  1176. SHELL "CD\POEMS"
  1177. SHELL "SHOWP.BAT"
  1178. SHELL "CD\MENU"
  1179. GOTO POEMS
  1180.  
  1181. TURTS:
  1182. SHELL "CD\POEMS"
  1183. SHELL "SHOWT.BAT"
  1184. SHELL "CD\MENU"
  1185. GOTO POEMS
  1186.  
  1187. RAVEN:
  1188. SHELL "CD\POEMS\RAVEN"
  1189. SHELL "SHOW.BAT"
  1190. SHELL "CD\MENU"
  1191. GOTO POEMS
  1192.  
  1193. ULYSSES:
  1194. SHELL "CD\POEMS\ULYSSES"
  1195. SHELL "ULYSSES.BAT"
  1196. SHELL "CD\MENU"
  1197. GOTO POEMS
  1198.  
  1199. RHINO:
  1200. SHELL "CD\POEMS\RHINO"
  1201. SHELL "RHINO.EXE"
  1202. SHELL "CD\MENU"
  1203. GOTO POEMS
  1204.  
  1205. REFERENCE:
  1206. SHELL "REFER.COM"
  1207. REFERMENU:
  1208.      A$=INKEY$
  1209.         IF A$=CHR$(49) THEN GOTO FELINE
  1210.         IF A$=CHR$(50) THEN GOTO GARDENS
  1211.         IF A$=CHR$(51) THEN GOTO GEOGRAPH
  1212.         IF A$=CHR$(52) THEN GOTO MEDICS
  1213.         IF A$=CHR$(53) THEN GOTO MISCREFER
  1214.         IF A$=CHR$(54) THEN GOTO QUOTES
  1215.         IF A$=CHR$(55) THEN GOTO THESAUR
  1216.         IF A$=CHR$(27) THEN GOTO BOOKSHELF
  1217.      GOTO REFERMENU
  1218.  
  1219. FELINE:
  1220. SHELL "KITTY.COM"
  1221. KITTYMENU:
  1222.      A$=INKEY$
  1223.         IF A$=CHR$(49) THEN GOTO CATMED
  1224.         IF A$=CHR$(50) THEN GOTO CHOOSY
  1225.         IF A$=CHR$(51) THEN GOTO GENETIC
  1226.         IF A$=CHR$(52) THEN GOTO NUTRIT
  1227.         IF A$=CHR$(53) THEN GOTO CATHIST
  1228.         IF A$=CHR$(54) THEN GOTO PUREBRED
  1229.         IF A$=CHR$(55) THEN GOTO WILDCATS
  1230.         IF A$=CHR$(27) THEN GOTO REFERENCE
  1231.      GOTO KITTYMENU
  1232.  
  1233. CATMED:
  1234. SHELL "CD\REFEREN\CATMED"
  1235. SHELL "CATMED.EXE"
  1236. SHELL "CD\MENU"
  1237. GOTO FELINE
  1238.  
  1239. CHOOSY:
  1240. SHELL "CD\REFEREN\CATS"
  1241. SHELL "SHOW2.BAT"
  1242. SHELL "CD\MENU"
  1243. GOTO FELINE
  1244.  
  1245. GENETIC:
  1246. SHELL "CD\REFEREN\CATS"
  1247. SHELL "SHOW3.BAT"
  1248. SHELL "CD\MENU"
  1249. GOTO FELINE
  1250.  
  1251. NUTRIT:
  1252. SHELL "CD\REFEREN\CATS"
  1253. SHELL "SHOW4.BAT"
  1254. SHELL "CD\MENU"
  1255. GOTO FELINE
  1256.  
  1257. CATHIST:
  1258. SHELL "CD\REFEREN\CATS"
  1259. SHELL "SHOW5.BAT"
  1260. SHELL "CD\MENU"
  1261. GOTO FELINE
  1262.  
  1263. PUREBRED:
  1264. SHELL "CD\REFEREN\CATS"
  1265. SHELL "SHOW6.BAT"
  1266. SHELL "CD\MENU"
  1267. GOTO FELINE
  1268.  
  1269. WILDCATS:
  1270. SHELL "CD\REFEREN\CATS"
  1271. SHELL "SHOW7.BAT"
  1272. SHELL "CD\MENU"
  1273. GOTO FELINE
  1274.  
  1275. GARDENS:
  1276. SHELL "GARDAINS.COM"
  1277. GARDMENU:
  1278.      A$=INKEY$
  1279.         IF A$=CHR$(49) THEN GOTO HERBYS
  1280.         IF A$=CHR$(50) THEN GOTO BONSAI
  1281.         IF A$=CHR$(51) THEN GOTO GGUIDE
  1282.         IF A$=CHR$(52) THEN GOTO GREENHSE
  1283.         IF A$=CHR$(53) THEN GOTO ORGANICG
  1284.         IF A$=CHR$(27) THEN GOTO REFERENCE
  1285.      GOTO GARDMENU
  1286.  
  1287. HERBYS:
  1288. SHELL "CD\REFEREN\HERBS"
  1289. SHELL "BEGIN.EXE"
  1290. SHELL "CD\MENU"
  1291. GOTO GARDENS
  1292.  
  1293. BONSAI:
  1294. SHELL "CD\REFEREN\BONSAI"
  1295. SHELL "SHOW.BAT"
  1296. SHELL "CD\MENU"
  1297. GOTO GARDENS
  1298.  
  1299. GGUIDE:
  1300. SHELL "CD\REFEREN\GARDEN"
  1301. SHELL "GARDEN.EXE"
  1302. SHELL "CD\MENU"
  1303. GOTO GARDENS
  1304.  
  1305. GREENHSE:
  1306. SHELL "CD\REFEREN\GREENHSE"
  1307. SHELL "BEGIN.EXE"
  1308. SHELL "CD\MENU"
  1309. GOTO GARDENS
  1310.  
  1311. ORGANICG:
  1312. SHELL "CD\REFEREN\ORGANIC"
  1313. SHELL "BEGIN.EXE"
  1314. SHELL "CD\MENU"
  1315. GOTO GARDENS
  1316.  
  1317. GEOGRAPH:
  1318. SHELL "GEOGRAPH.COM"
  1319. GEOMENU:
  1320.      A$=INKEY$
  1321.         IF A$=CHR$(49) THEN GOTO CANPOST
  1322.         IF A$=CHR$(50) THEN GOTO CITYLAT
  1323.         IF A$=CHR$(51) THEN GOTO INTTRAV
  1324.         IF A$=CHR$(52) THEN GOTO TRVPTS
  1325.         IF A$=CHR$(27) THEN GOTO REFERENCE
  1326.      GOTO GEOMENU
  1327.  
  1328. CANPOST:
  1329. SHELL "CD\REFEREN\CAN_POST"
  1330. SHELL "SHOW.BAT"
  1331. SHELL "CD\MENU"
  1332. GOTO GEOGRAPH
  1333.  
  1334. CITYLAT:
  1335. SHELL "CD\REFEREN\LAT_LONG"
  1336. SHELL "USCITIES.COM"
  1337. SHELL "CD\MENU"
  1338. GOTO GEOGRAPH
  1339.  
  1340. INTTRAV:
  1341. SHELL "CD\REFEREN\INTERSTA"
  1342. SHELL "IST.EXE"
  1343. SHELL "CD\MENU"
  1344. GOTO GEOGRAPH
  1345.  
  1346. TRVPTS:
  1347. SHELL "CD\REFEREN\POINTS"
  1348. SHELL "TPOI2.EXE"
  1349. SHELL "CD\MENU"
  1350. GOTO GEOGRAPH
  1351.  
  1352. MEDICS:
  1353. SHELL "MEDSTOP.COM"
  1354. MEDMENU:
  1355.      A$=INKEY$
  1356.         IF A$=CHR$(49) THEN GOTO COFFEE
  1357.         IF A$=CHR$(50) THEN GOTO BACKS
  1358.         IF A$=CHR$(51) THEN GOTO DOCDISC
  1359.         IF A$=CHR$(52) THEN GOTO FOODCAL
  1360.         IF A$=CHR$(53) THEN GOTO MEDTEX
  1361.         IF A$=CHR$(54) THEN GOTO FATASS
  1362.         IF A$=CHR$(55) THEN GOTO STRET
  1363.         IF A$=CHR$(27) THEN GOTO REFERENCE
  1364.      GOTO MEDMENU
  1365.  
  1366. COFFEE:
  1367. SHELL "CD\REFEREN\CAFFEINE"
  1368. SHELL "SHOW.BAT"
  1369. SHELL "CD\MENU"
  1370. GOTO MEDICS
  1371.  
  1372. BACKS:
  1373. SHELL "CD\REFEREN\BACKACHE"
  1374. SHELL "BACKACHE.EXE"
  1375. SHELL "CD\MENU"
  1376. GOTO MEDICS
  1377.  
  1378. DOCDISC:
  1379. SHELL "CD\REFEREN\MEDICAL"
  1380. SHELL "DOD.EXE"
  1381. SHELL "CD\MENU"
  1382. GOTO MEDICS
  1383.  
  1384. FOODCAL:
  1385. SHELL "CD\REFEREN\CALORIES"
  1386. SHELL "SHOW.BAT"
  1387. SHELL "CD\MENU"
  1388. GOTO MEDICS
  1389.  
  1390. MEDTEX:
  1391. SHELL "CD\REFEREN\MEDTXT"
  1392. SHELL "GO.BAT"
  1393. SHELL "CD\MENU"
  1394. GOTO MEDICS
  1395.  
  1396. FATASS:
  1397. SHELL "CD\REFEREN\OBESITY"
  1398. SHELL "SHOW.BAT"
  1399. SHELL "CD\MENU"
  1400. GOTO MEDICS
  1401.  
  1402. STRET:
  1403. SHELL "CD\REFEREN\STRETCH"
  1404. SHELL "SHOW.BAT"
  1405. SHELL "CD\MENU"
  1406. GOTO MEDICS
  1407.  
  1408. MISCREFER:
  1409.  
  1410.  
  1411.  
  1412.  
  1413.  
  1414.  
  1415.  
  1416.  
  1417. QUOTES:
  1418. SHELL "CD\REFEREN\P_WORDS"
  1419. SHELL "PWORDS.EXE"
  1420. SHELL "CD\MENU"
  1421. GOTO REFERENCE
  1422.  
  1423. THESAUR:
  1424. SHELL "CD\REFEREN\THESAURS"
  1425. SHELL "THESAUR.EXE"
  1426. SHELL "CD\MENU"
  1427. GOTO REFERENCE
  1428.  
  1429.  
  1430.  
  1431.  
  1432.  
  1433.  
  1434.  
  1435.  
  1436.  
  1437.  
  1438.  
  1439.  
  1440.  
  1441.  
  1442.  
  1443.  
  1444.  
  1445.  
  1446.  
  1447.  
  1448.  
  1449.  
  1450.  
  1451.  
  1452.  
  1453.  
  1454.  
  1455.  
  1456.  
  1457.  
  1458.  
  1459.  
  1460.  
  1461.  
  1462.  
  1463.  
  1464.  
  1465. END